gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Special.asp
<!--#include file="Head.asp"--> <!--#include file="Function.asp"--> <% Dim Rs,Page With Netout .Load("Comm") Page = .CheckNumeric(Request.QueryString("page")) If Page = 0 Then Page = 1 .MaxPerPage = 25 .TopPage = False .BottomPage = True .SqlRecord = "Select ID,SpecialName from Nt_Special Order By RootId,OrderId" .strFileName = "Special.asp?" .InitText = "个专题" Diary_html = .ShowRecord(Page) MyHtml = Replace(Template.Html(6),"{?HelpInfo}",Diary_html) MyHtml = Replace(Replace(Replace(Split(Template.Html(0),"||")(0),"{?left_beg}",""),"{?left_end}",""),"{?RightInfo}",MyHtml) MyHtml = Replace(MyHtml,"{?LeftInfo}",Replace(Template.Html(1),"{?QuickLaunch}",QuickLaunch())) MyHtml = Replace(.TempHtml,"{?CurrentScript}",MyHtml) Response.Write(MyHtml) End With set Template = Nothing set Netout = Nothing Function ShowContent(PageSize) Dim i,MyHtml,Id,SpecialName i = 0 Set ID = rs("ID") Set SpecialName = rs("SpecialName") Do While Not rs.eof And i<PageSize MyHtml = MyHtml&"<img src='Face/"&Netout.CssFilePath&"/shuy.gif' width=18 height=15 vspace=5 hspace=8 align='absmiddle'> <a href='ShowClass.asp?SpecialID="&ID&"' title='"&SpecialName&"'>"&Netout.CutStr(SpecialName,54)&"</a><br>" rs.MoveNext:i = i+1 Loop ShowContent = MyHtml End Function %>